00100		SUBROUTINE CMBN
00200		COMMON /RC/MCLEF(200),IST(4000),MFILL(200)
00300		COMMON /FL/JT,N,L,M,NM,J,NT
00400		DIMENSION IP(10),NMS(9)
00500		EQUIVALENCE (IP,MFILL)
00600	C  USE FILE NAMES CLFX, DRAW1 AND DRAW2.  400 WD LIMIT PER FILE.
00700	102	TYPE 1
00800	1	FORMAT(' TYPE OUTPUT FILE NAME ',$)
00900	10	FORMAT(A5)
01000		ACCEPT 10,NM
01100		IF(LOOKD(NM).EQ.0)GO TO 100
01200		TYPE 101,NM
01300		ACCEPT 10,JT
01400		IF(JT.EQ.'N')GO TO 102
01500	100	CALL OFILE(1,NM)
01600		JT=0
01700		IP(1)=1
01800		L=1
01900		J=1
02000		I=0
02100	30	TYPE 41
02200	41	FORMAT(' TYPE FILE NAME ',$)
02300		ACCEPT 10,NM
02400		IF(NM.EQ.' ')GO TO 8
02500		IF(LOOKD(NM))GO TO 51
02600		TYPE 52
02700		GO TO 30
02800	52	FORMAT(' FILE NOT FOUND'/)
02900	51	I=I+1
03000		NMS(I)=NM
03100		CALL IFILE(20,NM)
03200		IP(L)=J
03300		READ(20,5)M,M,M,M
03400	50	READ(20,5)M,M,(MCLEF(K),K=J,J+M-1)
03500		JT=JT+MCLEF(J)
03600		IF(JT.LT.M)M=JT
03700	7	J=J+M
03800		READ(20,5,END=62)M,M,(MCLEF(K),K=J,J+M-1)
03900		IF(J.GT.400)GO TO 8
04000		IF(MCLEF(J).NE.999)GO TO 7
04100		JT=JT+1
04200		MCLEF(JT)=999
04300		J=JT+1
04400		GO TO 50
04500	62	J=JT+1
04600		L=L+1
04700		IF(L.LT.11)GO TO 30
04800		GO TO 80
04900	101	FORMAT(' WRITE OVER ',A5,'.DAT?  Y OR N?  ',$)
05000	8	IP(L)=JT+1
05100		IF(L.EQ.10)GO TO 80
05200		DO 81 K=L+1,10
05300	81	IP(K)=0
05400	80	WRITE(1,9)IP
05500		J=1
05600		NT=0
05700	14	CALL SAVE(MCLEF(J))
05800		NT=NT+MCLEF(J)+1
05900		IF(MCLEF(NT).NE.999)GO TO 11
06000		WRITE(1,120)
06100		J=NT+1
06200		GO TO 14
06300	6	FORMAT(' 9999 ',9A5)
06400	4	WRITE (1,6),NMS
06500		RETURN
06600	11	IF(NT.GT.JT)GO TO 4
06700		J=NT
06800		NT=NT-1
06900		GO TO 14
07000	9	FORMAT(' 9999 ',10I6)
07100	120	FORMAT(' 9999 1 999')
07200	5	FORMAT(12I)
07300		END